home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g45.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
543b
|
22 lines
100 ' G45 T.WAKAMATSU
110 DIM H(20),X(20),Y(20)
120 FOR I=1 TO 8:READ H(I):NEXT I:DATA 2,3,4,5,6,7,8,1
130 PI=3.14159!:C(1)=2:C(2)=1:C(3)=0:CLS
140 FOR P=1 TO 3
150 K=45:F=0
160 FOR L=0 TO 90 STEP 2
170 N=0:J=F:F=F+2!
180 FOR I=L TO 360+L STEP K
190 J=100-J:M=I+J
200 T=M/180*PI
210 N=N+1
220 X(N)=239*COS(T)+320
230 Y(N)=239*SIN(T)+240
240 NEXT I
250 PSET(X(1),Y(1))
260 FOR I=1 TO 8
270 LINE-(X(H(I)),Y(H(I))),PSET,%C(P)
280 NEXT I
290 NEXT L
300 NEXT P